home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / amac44b.zip / QLST@F1.QM < prev    next >
Text File  |  1992-05-27  |  3KB  |  52 lines
  1. *                               qlst@f1.qm
  2. *               Macro To Load a File List of Files In Ring
  3. *                                 5/18/92
  4.  
  5. * 
  6. * ----------------------------------------------------------------------
  7. * @(f1) Load File List In Ring,
  8. *       User Selects File To Load Emulating PC Magazine Filectrl.com,
  9. * ----------------------------------------------------------------------
  10.  
  11.  
  12.  
  13.  
  14. @f1     macrobegin
  15.         setscreenoff                    * Turn screen off for less flicker
  16.         endfile markline begfile        * Mark file list                   *|
  17. * ---------------------- Copy File List To Nul ----------------------*     *|a
  18.         editfile "Nul" return           * Load Nul for faster loading      *|
  19.         copyblock unmarkblock           * Copy file list to Nul            *|
  20.         endfile                         * Load last file first
  21. * ---------------------- Load File List In Ring ----------------------*
  22.     LOAD:
  23.         setscreenon setscreenoff    * Turn screen on/off to see loading |b
  24.         markline                    * Mark file name at cursor
  25.         copy                        * Copy file name to scrap
  26.         editfile currentfilename " " * Load current file plus
  27.         paste return                 * last marked on list into ring
  28.         cursorup                    * Move up to next file in list
  29.     jtrue LOAD                      * Continue loading until top of list
  30. * --------------- Quit Nul, Return To Top of File List ---------------*
  31.         quit                        * Quit formatted Nul file list         *|a
  32. * ------------------- Load First File in Window 2 -------------------*
  33.         horizontalwindow            * Open 2 windows
  34.         editfile paste return       * Load first file in list in window 2
  35.         prevwindow                  * Move to window 1
  36. * ------------------- Select Another File To Load -------------------*
  37.     SELECT:
  38.         setscreenon                 * Turn on for pause
  39.         pause                       * Pause to select file to load
  40.         markline copy               * Copy selected file name to scrap
  41.         nextwindow                  * Move to window 2
  42.         editfile paste return       * Load selected file
  43.         zoomwindow                  * Zoom to edit in full window
  44.         pause                       * Press <enter> to Select another file
  45.         prevwindow                  * Return to list to select another file
  46.         makectrofscreen             * To view files above and below cursor
  47.     jump SELECT                     * Loop again to select another file
  48. *
  49. * 50 bytes Wed  11-20-1991  15:16:31 (TH @7, from RINGnn.QM)
  50. * 54 bytes Thu  05-07-1992  10:01:39 (TH @f1, added Nul *|a)
  51.  
  52.